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SECTION | 
INTRODUCTION 


This conversion subroutine package consists of three subroutines which may be run on 
any Varian iData Machines 620 series computer. These subroutines enable the user to 
convert from one character code, usually associated with a particular peripheral device, 
to the character code of a different device. The three subroutines (described in detail 
in section 2) are: 


EBCDIC TO [IOLLERITH CONVERSION 
HOLLERITH TO EBCDIC CONVERSION 
EBCDIC TO £.SCIl CONVERSION 


The EBCDIC TO HOLLERITH conversion subroutine (SA0O1) converts an 8-bit EBCDIC 
character in the A-register to its equivalent 12-bit HOLLERITH code in the A-register. 


The HOLLERITH TO EBCDIC conversion subroutine (SBO1) converts a 12-bit 029 HOLLERITH 
character in the A-register to its equivalent 8-bit EBCDIC character in the A-register. 


The EBCDIC to ASCI! conversion subroutine (SCO1) converts an 8-bit EBCDIC character in 
the A-register to its equivalent 8-bit ASCI| code in the A-register. If other than 8-bit 
ASCII code is desired, this routine may be easily modified (see section 2.3.17, comments 
for SCO1). 


The user should note the following characteristics of these subroutines: 


1) Require VDM 620 series computer with a 16-bit word 


2) Source statements must be assembled with DAS 8A assembler 
3) The extended addressing option is not necessary 
4 The multiply /divide option is not necessary 


This subroutine package is referenced by the following VDM Software part numbers: 


Source Material - 92HO206-001 
Object Material - 92U0206-001 
Assembly Listing 92L0206-00 1 
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SECTION 2 

SUBROUTINE DESCRIPTIONS 
2.1 EBCDIC TO HOLLERITH 
2.2 HOLLERITH TO EBCDIC 


2.3 EBCDIC TO ASCII 
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het 


bs Title: Convert EBCDIC to Hollerith 
ya Symbolic Name: SA0Q1 
3. Purpose: To convert an EBCDIC character in bits 0 through 7 


of the A register to IBM 029 Hollerith code in bits 
0 through 11 of the A register. 


4, Description: Index register B and the input value in the A register 
are saved. An index pointer into the SAT2 table is 
built by shifting out the least significant bit of the 
EBCDIC input, saving only the low order 7 bits, and 
adding the beginning address of SAT2 to the result. 
The two packed Hollerith characters from 5AT2 are 
then loaded into the B register. The original EBCDIC 
value is checked and, if even, the left half of the 
packed Hollerith word is saved or, if odd, the right 
half is saved. An index pointer into the SATI table 
is then built by saving the least significant 3 bits of 
the saved Hollerith word and adding the beginning 
address of SAT1. Rows 12, 11, 0 are shifted to their 
output position and merged with rows 1-7. The B 
register is restored and the word with the output 
positions of rows 12, 11, 0, 1-7 is saved. Rows 8 
and 9 are now merged with the other rows into the 
final output value of the Hollerith code and a return 
is made to the calling program. 
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2.14.1 EBCDIC - HOLLERITH TABLE 


EBCDIC Character Punched Card | | EBCDIC Character Punched Card | 


(Hexadecimal) (Hexadecimal) Code - 
12-0-1-8-9 20 11-0-1-8-9 
2-1-9 cote 
12-2-9 22 0-2-9 
12-3-9 230 0-3-9 
12-4-9 24 0-4-9 
= 12-5-9 SP 
| 12-6-9 ! 26 0-6-9 : 
: 12-7-9 27 0-7-9 | 
eK end teretiineenae wil 
12-8-9 | 0-8-9 : 
| 12-1-8-9 | 0-1-8-9 : 
= i. eri 
: 0-2-8-9 
a 0B 0-3-8-9 
| ve 12-4-8-9 | 0-4-8-9 
en en 0-5-8-9 
| OE 12-6-8-9 | 0-6-8-9 
L_ OF NA 7-8-9 __ O-7-8-9 
| 10 12-11-1-8-9 | 12-11-0-1-8-9 
| MW ‘VW-1-9 : 1-9 7 
| 12 1-2-9 : 2-9 
: 11-3-9 3-9 
| 11-4-9 4-9 
| 1-5-9 | 5-9 
11-6-9 6-9 
Si /-9 _ 
| 18 11-8-9 8-9 
9 11-1-8-9 1-8-9 | 
1A 11-2-8-9 2-8-9 | 
= 1B 11-3-8-9 3-8-9 
| } Lede 
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| EBCDIC Character Punched Card EBCDIC. Character: | Punched Coed | : 
| (Hexadecimal) Code i irececinn Code | 
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52 12-11-2-9 
53 12 11-3-9 
| 54 12-11-4-9 
55 12-11-5-9 


em SS gS maar ce o> eu 


56 12-11-6-9 76 12- 1 Nuh 9 
57 12-11-7-9 77 12- 11-0- 7-9 


58 12-11-8-9 78 12-11-0-8-9 
59 11-1-8 
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5A 11-2-8 | 2-8 
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_ PO ne ce oe 
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| Beli Mat (Continued) 
pu aaa eee ane ete | se peeaeeaesneiseesdis Semaatatasoseed eerie , 
| EBCDIC Character Punahed Cond EBCDIC Character Pancho Card | 
| | (Hexadecimal) _ Code : (Hexadecimal) Code 3 


80 12-0-1-8 . 
8] 12-0-1 : 
82 12-0-2 
ee: 12-0-3 
84 12-0-4 
85 12-0-5 
86 12-0-6 
| 87 12-0-7 
88 12-0-8 
) 89 12-0-9 
__ a 
| 8A 12-0-2-8 
7 8B 12-0-3-8 | 
| 8c 12-0-4-8 | 
: 8D 12-0-5-8 
| BF 12-0-6-8 : 
8F 12-0-7-8 
| -. _ pamtanaetes 1 
90 12-11-1-8 | | : BO 12-11-0-1-8 
91 12-11-1 _ BI 12-11-0-1 
— Si a a t es oe 
| 92 12-11-2 | ; B2 12-11-0-2 
98 NB 12-11-0-3 
94 2-1-4 | BA 12-11-0-4 
95 12-11-5 ! B5 12-11-0-5 
96 12-11-64 \ | Bé 12-11-0-6 
97 12-11-7 | : B7 12-11-0-7, 
98 12-11-8 _ Be ‘12-11-0-8 | 
99 12-11-90 B9 12-11-0-9 
9A 12-11-2-8 =| | ti (ts‘«iBA~*C«dS‘ DT H~2-8 
a: 12-11-3-8 BB 12-11-0-3-8 
9C 12-11-4-8 | BC 12-11-0-4-8 
9D 12-11-5-8 | BD 12-11-0-5-8 | 
ea usar Sen nnn a Ye Tee eer rR Ree BO ee een eC eT, MR eee el niles peaches sine sami lira bile att Se 
: 9E 12-11-6-8 | BE 12-11-0-6-8 | 
OF 12-11-7-8 12-11-0-7-8 | 
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(Hexadecimal) 


EBCDIC Character Punched Card | 


CO 12-0 
es ee 
| C2 12-2 | 
| C3 1943 | 
7 C4 12-4 1 
: C5 | 12-5 
| Cé 12-6 
7 12-7 
| C8 12-8 
C9 12-9 

CA —*12-0+2-8-9 

B 12-0-3-8-9 
a... | 
| cc 12-0-4-8-9 
: CD 12-0-5-8-9 
7 CE 12-0-6-8-9 | 

CF 12-0-7-8-9 | 
, DO 11-0 | 
O01 ; 11-1 , 

D2 11-2 | 

D3 11-3 
: DA 11-4 : 
: D5 11-5 _ 4 
Dé 11-6 | 
: D7 11-7 : 

DS 11-8 

D9 11-9 

DA 12-11-2-8-9 | 
ee: 12-11-3-8-9 © 
: DC 12-11-4-8-9 
DD 12-1 -5-8-9 
| DE 12-11-6-8-9 | 
DF 12-11-7-8-9 | 
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Punched Card 7 


-EBCDIC Character 


| 0-2-8 
| E) 11-0-1-9 
| E2 0-2 
E3 0-3 
: E4 0-4 
: E5 0-5 
bye paracnit 
| E6 0-6 
| E7 0-7 . 
} Eg 0-8 
| EY 0-9 
rn Sn 
| EB 11-0-3-8-9 
| EC 11-0-4-8-9 
ED 11-0-5-8-9 
| EE 11-0-6-8-9 
3 EF 11-0-7-8-9 
S acena al 
| FO 0 
F] 
| F2 2 
| F3 3 
etait en ee aca 
. F4 4 
FS 
i Fé 6 
i F7 7 
—— 
: F8 8 
: F9 9 
fe tieemnineeniaisasnmlanabi eee ey 
: FA 12-11-0-2-8-9 
| FB 12-11-0-3-8-9 | 
FC 12-11-0-4-8-9 - 
| FD 12-11-0-5-8-9 
| PE 12-11-0-6-8-9 | 
! FF 12-11-0-7-8-9 - 
— daitnugucaripreeer catty : 
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Se Entry Point: 


6. Calling Sequence: 


a Entrance Parameters: 
8. Exit Point: 
9, Exit Parameters: 


10. Tables or Files Modified 
or Read: 


ll. Tables or Files Created: 
i Called By: 

3, Called From: 

14, Exception Conditions: 
IS. Timing: 


16. Size: 


l/, Comments: 
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SA01 


P-] LDA value to be converted 
P JMPM SAO! 

P+] 

P+2 Any instruction 


EBCDIC character in bits 0 through 7 of A register. 


Only one exit exists for this subroutine. Return is 
to P+2 of the calling program. 


X Register unchanged 

B Register unchanged 

A Register converted value in bits 0 through 11, as 
follows: 


SAT! - Hollerith 0-7 punch table 
SAT2 - Hollerith character table 


None 
Any system program 
None 


None 


‘55 cycles 


30 words - Instructions 
2 words - Temporary storage 
136 words- Tables 


This subroutine is not re-entrant. Every EBCDIC 
character is convertable. That is, there is no error 
condition associated with this subroutine. 
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18. Special Notation: None 
19. Hardware Details: None 


20. Flowcharts: 
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Ww Title: 


1 Symbolic Name: 


3. Purpose: 
4, Description: 
Os Entry Point: 


6. Calling Sequence: 


ts Entrance Parameters: 
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Convert Hollerith to EBCDIC 
$BO] 


To convert an 029 Hollerith character in bits 0 
through 11 of the A register to its corresponding 
EBCDIC code in bits 0 through 7 of the A register. 


Index registers B and X are saved. The B register 

is initialized to zero and will be used as the field 

1 (1-7 punches) pointer. The original Hollerith input 
is checked to see if row 9 is punched. If punched, 
bit 11 is set and if not punched, bit 11 is reset. The 
Hollerith input rows 1-7 are now searched against table 
SBT] to determine which of the rows 1-7 (or none) 

has been punched. More than 1 punch in rows 1-7 
results in a return to the calling program with the 
accumulator set negative. An index into table SBT2 
is built by isolating card rows 9, 12, 11, 0 into bit 
positions 6, 5, 4, 3 and adding the displacement into 
SBT! which wes determined when a match on rows |-7 
was found. This 7 bit number is added to the 
beginning address of table SBT2 to obtain the address 
of the corresponding two EBCDIC characters - one 
with an 8 punch and one without an 8 punch. The 
original Hollerith input is now checked to see if row 8 
was punched. The appropriate EBCDIC is then right 
justified in the accumulator, the B and X registers are 
restored, and a return is made to the calling program. 


SBO1 

P-1 LDA value to be converted 
P JMPM 

P+] S$BO1 


P+2 Any instruction 


029 Hollerith character in bits 0 through 11 of A 
register. 
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10. 


A. 


IS. 


16 


17. 
18. 


1@. 
20. 


Exit Point: | 


Exit Parameters: 


Tables or Files Modified 
or Read: 


Tables or Files Created: 
Called By: 
Called From: 


Exception Conditions: 


Timing: 


Size: 


Comments: 


Special Notation: 


Hardware Details: 


F lowcharts: 


Only one exit exists for this subroutine. Return is 
to P+2 of the calling program. 


X Register unchanged 
B. Register unchanged 
A Register converted value in bits 0 through 7. 


SBT? 1-7 row punch table 
SBT2 EBCDIC character table 


None 


_ Any system program 


None 


An input containing more than one punch in rows 1-7 
is an error and results in a return to the calling program 
with the accumulator set negative. 

44 cycles mmimum 

114 cycles maximum | 


7 46 words - Instructions 


4 words - Temporary storage 
136 words = Tables 


This subroutine is not re-entrant., 


None 


None 
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2.3 


be Title: EBCDIC to ASCII Conversion 
2% Symbolic Neme: SCO] 
<7 Purpose: To convert an 8-bit EBCDIC character in the A register 


to its equivalent 8=bit ASCII code in the A register. 


4, Description: Index register B and the input value in the A register 
are saved. The input value is checked to see if it 
is in the range of either 40-7F or CO-FF. If not, a 
return to the calling program is made with the 
accumulator negative. Otherwise, a shift command 
to test the validity of the value to be converted is 
built. The displacement into the SCT1 table is 
calculated by right justifying bits 4 and 5 of the 
EBCDIC input. Adding the beginning address of SCT] 
to this value yields the address of the word in SCT] 
containing the legality bit for this EBCDIC input. A 
check is now made to determine exactly which range 
the input value is in, 40-7F or CO-FF. If 40-7F, an 
offset of zero into the SCT] table is used. If CO-FF, 
an offset of four is used. The legality bit for this input 
value is now checked. If not legal, a return to the 
calling routine is made with the accumulator negative. 
If legal, bits 1-5 of the EBCDIC input value are added 
to the beginning address of the SCT2 table to obtain the 
address of the word containing the two ASCII characters 
for this value. If the EBCDIC input value was even, the 
left ASCI! character is set in the accumulator, right 
justified. If odd, the right ASCII character is set in 
the accumulator, also right justified. The B register 
is then restored and a return is made to the calling 


pregram. 
5, Entry Points: SCO} 
6. Calling Sequence: P-1 LDA value 
P JMPM SCO} 
P+2 Any Instruction 
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16. 


Entrance Parameters: 


Exit Point: 


Exit Parameters: 


Table or Files Mcdified 
or Read: 


Tables or Files Created: 


Called By: 
Called From: 


Exception Conditions: 


Timing: 


Size: 


Comments: 


Special No*ation: 
Hardware Details: 


F lowcharts: 


EBCDIC character in bits 0 through 7 of A register. 


Only one exit exists for this subroutine. Return is to 
P+2 of the calling program. 


B register unchanged. 
ASCII code in bits 0 through 7 of the A register. 


SCT1 Legality check table 
SCT2 ASCII character table 
None 


Any system program 
None 


If the input value is not in the ranges 40-7F or CO-FF, 
or if the legality status bit in Table SCT] is set, a 
return to the calling pregrem is cade with the skeen | 
set negative. 


17 cycles minimum 
72 cycles maximum 


44 words —- Instructions 
2 werds - Temporary stewege 


40 words - Tables 


This subroutine is not re-entrant. Some output devices 
allow wmly 7—bit ASCII. IF other than 8-bit ASCI| 
is desired, this subroutine should be modified as follows: 


- Either - 1) Modify table SCT2 to include desired codes 
7 or 
2) Insert an appropriate mask instruction at 
location SC30+1. 
None 
None 
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SECTION 3) 
TEST PROCEDURE AND RESULTS 
3.1] DESCRIPTION OF PROCEDURE 


The three conversion routines were tested as follows: ; 

Two tables, TBL] and TBL2 were generated. For the EBCDIC TO HOLLERITH conversion, 
sequential EBCDIC vatves from 0 to 255 were placed into the A-register and a call 

to SAO1 was made for each value. The output HOLLERITH characters were then placed 
sequentially into TBLI. | 


For the HOLLERITH TO EBCDIC conversion, the HOLLERITH values from TBL] were 
placed into the A-=register and a call to SB01 was made for each value. The output 
EBCDIC characters were placed sequentially into TBL2. An illegal HOLLERITH 
charact er was then given to SBO1 with the associated error return stored in TBL2+256. 


For the EBCDIC TO ASCII conversion, the EBCDIC values from TBL2 were placed into 
the A-register and a cal! to SCOl was made for each value. The output ASCII characters 
(or error codes) were sequentially stored back into TBLI. 
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3.3 TEST RESULTS 
3.3.1 Test of EBRCDIC TO HOLLERITH (SA01) 
Output of SAO] to TBLI. Used as input to SBO1. 
G1i500- 
D1563 ¢ , | | . 
€ 001563 )» 005403 004401 004201 004101 004041 
¢ 001570 » 004021 004011 004005 004003 004403 004203 004103 004043 
¢ 001600 >» 004023 004013 004007 006403 002401 002201 002101 GG204)} 
¢ 001610 >» 002021 002011 002005 002003 002403 002203 002103 062043 
¢ 001620 » 002023 002013 002007 003403 001401 001201 001101 CCIO4TI 
€ 001630 >» 001021 001011 001005 001003 001403 001203 001103 0:.1043 
f 001640 >» 001023 001013 001007 007403 000401 000201 000101 6 0041 
( 9001650 )» 000021 060011 000005 000003 000403 000203 000103 '::.0043 
¢ 001660 )» 000023 000013 000007 000000 005401 005201 005101 ..-504\ 
¢ 001670 ) 005021 005011 005005 005003 004402 004202 004108 ©::4042 
¢ 001700 >» O04022 004012 004006 004000 006401 006201 00610! %::604) 
( 001710 » 006021 006011 006005 006003 002402 002202 002102 .. 2042 : 
« 001720 >» O02022 002012 002006 002000 001400 003201 003101 . 304! : 
f 001730 >» 003021 003011 003005 003003 001402 006000 001102 ( ‘1042 
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© 001770 )» 005020 005010 005004 005002 005001 005202 0051Uc . 504% 
¢ 002000 )» 005022 005012 005006 006402 006400 006200 006100 0::6046 
‘ 902010 ) 006020 006010 006004 006002 006001 006202 006102 0° 6042 
© )02020 )» 006022 C06012 006006 003402 003400 003200 003100 G. 3040 
( 002030 2 003020 003010 003004 003002 003001 003202 003102 0°3042 
‘ 902040 2 003022 003012 003006 007402 007400 007200 007100 ~::7040 
¢ 002050 )» 007020 007010 007004 007002 007001 007202 007102 0vu7042 : 
¢ 002060 )» 007022 007012 007606 005000 004400 004200 004100 074040 
< 902070 >» 004020 004010 004004 004002 004001 005203 005103 v05043 , 
¢ 002100 )» 005023 005013 005007 003000 002400 002200 002100 ©2040 
¢ 002110 >» 002020 002010 002004 002002 002001 006203 006103 6:'16643 
‘ 902120 )» 006023 006013 006007 001202 003401 001200 001100 3 1040 
¢ 002130 2» 001020 001010 001004 001002 001001 003203 003103 "3043 . 
£ 902140 2 003023 003013 003007 001000 000400 000200 000106 200-40 
| -30215C 2 000020 000010 000004 000002 009001 007203 007103 1:'7043 
002160 ) OCTOas COTO1S 007007 < 
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Seda tof HOLLERITE TC EBCDIC (£851) 
Output of $391 to TOL2 (T3L1 has been used as injut). 
G1517. 
D21646 
66092164 ) )oascoogo 600001 009002 Q00093 
( 302170 2 O00G04 OG9UNG5 0090006 900007 O000!IO O00011i CO001e2 DOOAIS 
¢ 60220G >» 699014 090015 0009016 000017 900C20 000021 AOCVEe 009023 
C 0028190 ) QO00924 OG0025 000026 BN00ET GBO0030 00003! GO00S2 000033 
C 902220 3 395334 099055 000036 906037 OCOO4O O00D0D41 OO0O0D42 OCOO4S 
( NOff4C » u0ed44 09GG4S 000046 000047 000050 006051 000652 900053 
( 9022490 3 GNGcs4 3960055 000056 000057 000060 O000E)] ONO0S2 IJOUOG3 
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€ 900OP469 2 O0.2°74 COGO7T5S 200076 600077 00610) 9000101 0090102 000103 
C g9oee70 2 O00294 OOCTOAS 990106 QDOOLOF OONOITIO GOOLI1 OOGIIS BlO113 
C YAAPOe FD Gibb OG 29i5 000116 000117 50912120 QO0OO1E: OOO1lSe VQONTS3 
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€ 90929329 9 3301S4 Gouls5 900136 COOLS’ COOLAO DJOOTSE BUOLAE OOULAS 
¢ ¢ 002339 ) ODO1L4E+ 9090145 0CN0146 060147 000150 000151 000152 000153 
i { 002340 9). 000154 0090155 990156 090157 006160 000161 9000162 000163 
F € OORB5C > ONCLSA GCO1GS UNO166 000167 000170 000!71 000172 GfO173 
BR € 906360 )Y OQO00174-000175 2800176 000177 GOOCOO 90M2N1 OOC202 CO0203 
€ 002370 9 900804 COCEDS 000206 900207 O0021IO 0OC211 ADDIS OVGELS 
b € 90028400 9 ONVALA NVCLIS 000216 GO0217 000220 0NN221 ONCEEa CuUV223 
C OOL410 9 COO0224 000ENS 000226 90C227 900230 000231 OCGE32 060233 
C 002720 9 ONO234 000235 000236 000237 000245 000241 O00K4a VO0Z4HS 
P ¢ 002430 > YH02844 ONN245 2900246 O0GRAT 000250 000251 900252 000253 
C OOLA40 > 090054 090E55 000256 000257 000266 L00261 COOLEG2 9NOGHS3 
f COn“50 J» OO92564 9JOO0S6S 000256 O0OG267 JOOLTO OOGeT!1 OOV2T2 OUGE73 
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‘ C )O0G599O >» ANOVAI4A DOOSITS OOOSIE6 OOC3LY 900360 O9003e1 NOOSeS OCOV323 
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C OVS > OOOF8A 000335 000336 000337 099340 N00S4iL 200342 000343 
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C 9085460 2 OVOaSa OONSSS NOO3S6 O90357 QOOSKEA HNUN3SG1 OGOVSGS LOSES 
€ G0255O 3 COUSG OHSOSES 000366 GO0367 GOUR7VO OOOUZTL CON3TF 606373 
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3.3.3 


Output of SCO1 to TBL1 (TBL2 has been used as input). 
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001670 
001790 
001716 
001720 
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001749 
OO 786 
001760 
001770 
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